home *** CD-ROM | disk | FTP | other *** search
- SET TERM ^;
- CREATE TRIGGER "FieldCreateTimeStamp" FOR SECTIONFIELDS
- ACTIVE BEFORE INSERT POSITION 0
- AS
- BEGIN
- NEW.DATECREATE = CURRENT_TIMESTAMP;
- NEW.DATEMODIFIED = CURRENT_TIMESTAMP;
- END;
- ^
- SET TERM ; ^
-
-
-
- SET TERM ^;
- CREATE TRIGGER "FieldUpdateTimeStamp" FOR SECTIONFIELDS
- ACTIVE BEFORE UPDATE POSITION 0
- AS
- BEGIN
- NEW.DATEMODIFIED = CURRENT_TIMESTAMP;
- END;
- ^
- SET TERM ; ^
-
-
- DROP TRIGGER "PeopleRealTimestamp";
-
-
- SET TERM ^;
- CREATE TRIGGER "PeopleUpdateTimestamp" FOR PEOPLE
- ACTIVE BEFORE UPDATE POSITION 0
- AS
- BEGIN
- NEW.DATEMODIFIED = CURRENT_TIMESTAMP;
- END;
- ^
- SET TERM ; ^
-
-
- SET TERM ^;
- CREATE TRIGGER "PeopleCreateTimestamp" FOR PEOPLE
- ACTIVE BEFORE INSERT POSITION 0
- AS
- BEGIN
- NEW.CREATEDATE = CURRENT_TIMESTAMP;
- NEW.DATEMODIFIED = CURRENT_TIMESTAMP;
- END;
- ^
- SET TERM ; ^
-
-
- DECLARE EXTERNAL FUNCTION FUD_BIRTHDAYBETWEENMONTHDAY
- DATE,
- INTEGER,
- INTEGER,
- INTEGER,
- INTEGER
- RETURNS INTEGER BY VALUE
- ENTRY_POINT 'BirthdayBetweenMonthDay' MODULE_NAME 'udfoc';
-
-
-